(deftemplate persoana(slot nume)(slot sex)(slot parinte)(slot partener))
(assert (persoana(nume Ion)(sex m)(parinte null)(partener Maria)))
(assert (persoana(nume Maria)(sex f)(parinte null)(partener Ion)))
(assert (persoana(nume Petre)(sex m)(parinte null)(partener Maria1)))
(assert (persoana(nume Maria1)(sex f)(parinte Maria)(partener Petre)))
(assert (persoana(nume Cristian)(sex m)(parinte Maria)(partener Elena)))
(assert (persoana(nume Elena)(sex f)(parinte null)(partener Cristian)))
(assert (persoana(nume Adrian)(sex m)(parinte Maria)(partener Cristina)))
(assert (persoana(nume Ciprian)(sex m)(parinte Maria)(partener null)))
(assert (persoana(nume Ionel)(sex m)(parinte Maria1)(partener null)))
(assert (persoana(nume Tudor)(sex m)(parinte Cristina)(partener null)))
(assert (persoana(nume Adriana)(sex f)(parinte null)(partener null)))
(assert (persoana(nume Ionel1)(sex m)(parinte null)(partener null)))